#! /usr/bin/env perl

use strict;
use warnings;
use Encode;

if(! open PASSWD, "</etc/passwd") {
		die "How did you get logged in?($!)";
}

while(<PASSWD>) {
		print;
}
